( **********************************************************************
  File:        FRSVC2.F
  Author:      Dencom Inc.     -     www.dencom-inc.com
  Date:        March 16, 1998
  Description: This file contains commands used to build ies and messages.
  ********************************************************************** )


( **********     Build Information Elements     ********** )


: BUILD_BEARER_CAP         ( -- )
   I#BEARER_CAP ELEMENT>
       ALL_EXCLUDED
       OCTET_3 INCLUDED
       OCTET_4 INCLUDED
       OCTET_6 INCLUDED
       #CCITT                  *COD ->BC_CODING_STANDARD       !
       #UNRESTRICTED           *COD ->BC_TRANSFER_CAP          !
       #FRAME_MODE             *COD ->BC_TRANSFER_MODE         !
       #ANSI_T1.6ca            *COD ->BC_L2_PROTOCOL           !
   <ELEMENT
;

: BUILD_CALLED_NUM         ( -- )
   I#CALLED_NUM ELEMENT>
       ALL_INCLUDED
       #UNKNOWN                *COD ->CLDN_NUMBER_TYPE         !
       #UNKNOWN_PLAN           *COD ->CLDN_NUMBERING_PLAN      !
       CALLED-NUMBER           *COD ->CLDN_NUMBER              $!
   <ELEMENT
;

: BUILD_CALLED_SAD         ( -- )
;

: BUILD_CALLING_NUM        ( -- )
   I#CALLING_NUM ELEMENT>
       ALL_INCLUDED
       #UNKNOWN                *COD ->CLGN_NUMBER_TYPE         !
       #UNKNOWN_PLAN           *COD ->CLGN_NUMBERING_PLAN      !
       #PRESENT_ALLOWED        *COD ->CLGN_PRESENTATION        !
       #NETWORK_PROVIDED       *COD ->CLGN_SCREENING           !
       CALLING-NUMBER          *COD ->CLGN_NUMBER              $!
   <ELEMENT
;

: BUILD_CALLING_SAD        ( -- )
;

: BUILD_LINK_CORE          ( -- )
;

: BUILD_CONN_LINK_CORE      ( -- )
   I#LINK_CORE ELEMENT>
       ALL_EXCLUDED
       I#LINK_CORE OCTET_3 ?L3_OCTET
       IF OCTET_3 INCLUDED ENDIF
       I#LINK_CORE OCTET_3A ?L3_OCTET
       IF
           OCTET_3A INCLUDED
           OCTET_3B INCLUDED
           *DEC ->LLC_OUT_MAX_FRIF @ *COD ->LLC_OUT_MAX_FRIF !
       ENDIF
       I#LINK_CORE OCTET_3C ?L3_OCTET
       IF
           OCTET_3C INCLUDED
           OCTET_3D INCLUDED
           *DEC ->LLC_IN_MAX_FRIF @ *COD ->LLC_IN_MAX_FRIF !
       ENDIF

       I#LINK_CORE OCTET_4 ?L3_OCTET
       IF OCTET_4 INCLUDED ENDIF
       I#LINK_CORE OCTET_4A ?L3_OCTET
       IF
           OCTET_4A INCLUDED
           OCTET_4B INCLUDED
           *DEC ->LLC_OUT_TP_MAG @  *COD ->LLC_OUT_TP_MAG  !
           *DEC ->LLC_OUT_TP_MULT @ *COD ->LLC_OUT_TP_MULT !
       ENDIF
       I#LINK_CORE OCTET_4C ?L3_OCTET
       IF
           OCTET_4C INCLUDED
           OCTET_4D INCLUDED
           *DEC ->LLC_IN_TP_MAG @  *COD ->LLC_IN_TP_MAG  !
           *DEC ->LLC_IN_TP_MULT @ *COD ->LLC_IN_TP_MULT !
       ENDIF

       I#LINK_CORE OCTET_5 ?L3_OCTET
       IF OCTET_5 INCLUDED ENDIF
       I#LINK_CORE OCTET_5A ?L3_OCTET
       IF
           OCTET_5A INCLUDED
           OCTET_5B INCLUDED
           *DEC ->LLC_OUT_MIN_TP_MAG @  *COD ->LLC_OUT_MIN_TP_MAG  !
           *DEC ->LLC_OUT_MIN_TP_MULT @ *COD ->LLC_OUT_MIN_TP_MULT !
       ENDIF
       I#LINK_CORE OCTET_5C ?L3_OCTET
       IF
           OCTET_5C INCLUDED
           OCTET_5D INCLUDED
           *DEC ->LLC_IN_MIN_TP_MAG @  *COD ->LLC_IN_MIN_TP_MAG  !
           *DEC ->LLC_IN_MIN_TP_MULT @ *COD ->LLC_IN_MIN_TP_MULT !
       ENDIF

       I#LINK_CORE OCTET_6 ?L3_OCTET
       IF OCTET_6 INCLUDED ENDIF
       I#LINK_CORE OCTET_6A ?L3_OCTET
       IF
           OCTET_6A INCLUDED
           OCTET_6B INCLUDED
           *DEC ->LLC_OUT_COM_BURST @ *COD ->LLC_OUT_COM_BURST !
       ENDIF
       I#LINK_CORE OCTET_6C ?L3_OCTET
       IF
           OCTET_6C INCLUDED
           OCTET_6D INCLUDED
           *DEC ->LLC_IN_COM_BURST @ *COD ->LLC_IN_COM_BURST !
       ENDIF

       I#LINK_CORE OCTET_7 ?L3_OCTET
       IF OCTET_7 INCLUDED ENDIF
       I#LINK_CORE OCTET_7A ?L3_OCTET
       IF
           OCTET_7A INCLUDED
           OCTET_7B INCLUDED
           *DEC ->LLC_OUT_EX_BURST @ *COD ->LLC_OUT_EX_BURST !
       ENDIF
       I#LINK_CORE OCTET_7C ?L3_OCTET
       IF
           OCTET_7C INCLUDED
           OCTET_7D INCLUDED
           *DEC ->LLC_IN_EX_BURST @ *COD ->LLC_IN_EX_BURST !
       ENDIF

       I#LINK_CORE OCTET_8 ?L3_OCTET
       IF OCTET_8 INCLUDED ENDIF
       I#LINK_CORE OCTET_8A ?L3_OCTET
       IF
           OCTET_8A INCLUDED
           *DEC ->LLC_IN_BC_MAG @  *COD ->LLC_IN_BC_MAG  !
           *DEC ->LLC_OUT_BC_MAG @ *COD ->LLC_OUT_BC_MAG !
       ENDIF

       I#LINK_CORE OCTET_9 ?L3_OCTET
       IF OCTET_9 INCLUDED ENDIF
       I#LINK_CORE OCTET_9A ?L3_OCTET
       IF
           OCTET_9A INCLUDED
           *DEC ->LLC_IN_BE_MAG @  *COD ->LLC_IN_BE_MAG  !
           *DEC ->LLC_OUT_BE_MAG @ *COD ->LLC_OUT_BE_MAG !
       ENDIF
   <ELEMENT
;

: BUILD_DLCI               ( -- )
   I#DLCI ELEMENT>
       ALL_EXCLUDED
       OCTET_3  INCLUDED
       OCTET_3A INCLUDED
       #EXCLUSIVE              *COD ->DLCI_PREF/EXCL           !
       DLCI-VALUE @            *COD ->DLCI_DLCI                !
   <ELEMENT
;

: BUILD_CAUSE              ( -- )
   I#CAUSE ELEMENT>
       ALL_EXCLUDED
       OCTET_3 INCLUDED
       OCTET_4 INCLUDED
       #CCITT                  *COD ->C_CODING_STANDARD        !
       #USER                   *COD ->C_LOCATION               !
       CAUSE-VALUE @           *COD ->C_CAUSE_VALUE            !
   <ELEMENT
;

( **********     Build and send SETUP message     ********** )


: SEND_SETUP               ( -- )
   2           S-CR-LEN   !
   CR-VALUE @  S-CR-VALUE !
   #ORIG       S-CR-FLAG  !

   BUILD_BEARER_CAP
   BUILD_DLCI
   BUILD_CALLING_NUM
   BUILD_CALLING_SAD
   BUILD_CALLED_NUM
   BUILD_CALLED_SAD
   ( BUILD_LINK_CORE )

   M#SETUP MESSAGE>

       BCAP-INCLUDED @
       IF
           I#BEARER_CAP
       ENDIF

       DLCI-INCLUDED @
       IF
           I#DLCI
       ENDIF

       CALLING-NUMBER @
       IF
           I#CALLING_NUM
           ( I#CALLING_SAD )
       ENDIF

       CALLED-NUMBER @
       IF
           I#CALLED_NUM
           ( I#CALLED_SAD )
       ENDIF

       LINK-CORE-INCLUDED @
       IF
           I#LINK_CORE
       ENDIF

   <SEND
;

( **********     Build and send CALL PROC message     ********** )


: SEND_CALL_PROC           ( -- )
   EXTRACT_CR_VALUE
   BUILD_DLCI
   M#CALL_PROC MESSAGE>
       I#DLCI
   <SEND
;


( **********     Build and send CONNECT message     ********** )


: SEND_CONN                ( -- )
   EXTRACT_CR_VALUE
   BUILD_DLCI
   LINK-CORE-PRESENT @
   IF
       BUILD_CONN_LINK_CORE
   ENDIF
   M#CONN MESSAGE>
       I#DLCI
       LINK-CORE-PRESENT @
       IF
           I#LINK_CORE
       ENDIF
   <SEND
;


( **********     Build and send DISC message     ********** )


: SEND_DISC                ( CAUSE-VALUE -- )
   2           S-CR-LEN   !
   CR-VALUE @  S-CR-VALUE !
   CR-FLAG @   S-CR-FLAG  !

   BUILD_CAUSE
   M#DISC MESSAGE>
       I#CAUSE
   <SEND
;


( **********     Build and send REL message     ********** )


: SEND_REL                 ( -- )
   EXTRACT_CR_VALUE
   M#REL MESSAGE>
   <SEND
;


( **********     Build and send REL_COM message     ********** )


: SEND_REL_COM             ( -- )
   EXTRACT_CR_VALUE
   M#REL_COM MESSAGE>
   <SEND
;